﻿Public Class frmIPScanner

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub

    Private Sub frmIPScanner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtIP.Text = BuscarStrDatoCitra("SELECT IP_SCANNER FROM TANQUES WHERE NOMBRE='" & frmModuloDieselFinal.txtTanque.Text & "'")
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Call SetSqlCitra("UPDATE TANQUES SET IP_SCANNER='" & txtIP.Text & "' WHERE NOMBRE='" & frmModuloDieselFinal.txtTanque.Text & "'")

        Close()

    End Sub
End Class